home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 363 / xlisp20 / xlisplsp / trace.lsp < prev   
Text File  |  1990-02-03  |  768b  |  20 lines
  1. (setq *tracelist* nil)
  2.  
  3. (defun evalhookfcn (expr env &aux val)
  4.        (if (and (consp expr) (member (car expr) *tracelist*))
  5.            (progn (princ ">>> ") (print expr)
  6.                   (setq val (evalhook expr evalhookfcn nil env))
  7.                   (princ "<<< ") (print val))
  8.            (evalhook expr evalhookfcn nil env)))
  9.  
  10. (defun trace (fun)
  11.        (if (not (member fun *tracelist*))
  12.        (progn (setq *tracelist* (cons fun *tracelist*))
  13.                   (setq *evalhook* evalhookfcn)))
  14.        *tracelist*)
  15.  
  16. (defun untrace (fun)
  17.        (if (null (setq *tracelist* (delete fun *tracelist*)))
  18.            (setq *evalhook* nil))
  19.        *tracelist*)
  20. əəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəəə